home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / dndbbs.arc / DND-SRC.LBR / DNDSUB4.BAS < prev    next >
Encoding:
BASIC Source File  |  2011-01-28  |  4.6 KB  |  83 lines
  1. 10 DEFSTR A-B:DEFINT C-Z:DIM TS(12):COMMON SHARED /DNDBBS.PGM/ T2!,UX,LM,CX!,LR,RM,A,WR,CR,AL,FG,IN,TF,YE,AI,NX,CA,SW,PA1$,PA2$,E1$,Z8$,TS(),X1
  2. 20 SUB CASINO STATIC
  3. 30 DIM SLOT1(6),SLOT2(6),SLOT$(7),A2(6)
  4. 40 RESTORE:FOR LP=1 TO 7:READ SLOT$(LP):NEXT:FOR LP=1 TO 6:READ SLOT2(LP):NEXT
  5. 50 ON ERROR GOTO 840
  6. 60 FG=50:Z8$="":KEY OFF:CALL IO.O
  7. 70 FIELD 3,80 AS B7,30 AS AN,20 AS PS$,20 AS A2,1 AS A1,2 AS A2(1),2 AS A2(2),2 AS A2(3),2 AS A2(4),2 AS A2(5),2 AS A2(6),10 AS B7,2 AS RO$,2 AS B4
  8. 80 FIELD 3,177 AS B7,8 AS A9,8 AS BT,1 AS B1,2 AS B9,2 AS BC, 2 AS V4$,2 AS V5$,2 AS BR,2 AS BP,2 AS BZ,2 AS B7,2 AS BH,2 AS B7,2 AS LCK$,2 AS B7,8 AS AD,8 AS AE,10 AS AC
  9. 90 GET 3,UX:GG#=CVD(BT):IF GG#>0 THEN 130
  10. 100 A="As you step into the Casino,":CALL IO.O
  11. 110 A="The Game Master stops you and says:":CALL IO.O
  12. 120 A=CHR$(34)+"You have no account with us!"+CHR$(34):CALL IO.O:EXIT SUB
  13. 130 A="You step into the Casino..":CALL IO.O
  14. 140 A="The Game Master stops before you and says:":CALL IO.O
  15. 150 A=CHR$(34)+"You have"+STR$(GG#)+" gold to spend.."+CHR$(34):CALL IO.O
  16. 160 LSET BT=MKD$(GG#):PUT 3,UX
  17. 180 CALL IO.O:A="Casino>":FG=1:CALL IO.I
  18. 190 GOSUB 700:GOSUB 710:AL=LEFT$(AL,1)
  19. 200 IF AL="?" THEN BD=PA2$+"CASHELP.HLP":GOSUB 720:GOTO 180
  20. 210 IF AL="S" THEN 260
  21. 220 IF AL="Q" THEN EXIT SUB
  22. 230 IF AL="P" THEN 440
  23. 240 IF AL="R" THEN 570
  24. 250 A="Type ? for Help":CALL IO.O:GOTO 180
  25. 260 IF GG#<=0 THEN A="You have no Gold left!":CALL IO.O:GOTO 180
  26. 270 A="Bet[1-10000]?":CALL IO.I
  27. 280 GOSUB 800:IF V>0 AND V<=GG# THEN 310
  28. 290 A="The Game Master walks over and says:":CALL IO.O
  29. 300 A=CHR$(34)+"You don't have that kind of Gold!"+CHR$(34):CALL IO.O:GOTO 180
  30. 310 A="You step forward and pull the ivory handle..":CALL IO.O
  31. 320 SLOT!=INT(V)
  32. 330 SLOT1=INT(RND*7+1)
  33. 340 SLOT2=INT(RND*7+1)
  34. 350 SLOT3=INT(RND*7+1)
  35. 360 A="{"+SLOT$(SLOT1)+"}{"+SLOT$(SLOT2)+"}{"+SLOT$(SLOT3)+"}":CALL IO.O
  36. 370 IF SLOT1=7 OR SLOT2=7 OR SLOT3=7 THEN 420
  37. 380 IF SLOT1=SLOT2 AND SLOT2=SLOT3 THEN WIN!=SLOT!*SLOT2(SLOT1):GOTO 430
  38. 390 IF SLOT1=SLOT2 THEN WIN!=SLOT!*SLOT2(SLOT1):GOTO 430
  39. 400 IF SLOT2=SLOT3 THEN WIN!=SLOT!*SLOT2(SLOT2):GOTO 430
  40. 410 IF SLOT1=SLOT3 THEN WIN!=SLOT!*SLOT2(SLOT3):GOTO 430
  41. 420 A="You lose..":CALL IO.O:GG#=GG#-SLOT!:GOTO 160
  42. 430 A="You win"+STR$(WIN!)+"!":CALL IO.O:GG#=GG#+WIN!:GOTO 160
  43. 440 A="You sit down at a table with":CALL IO.O
  44. 450 A="ten bottles on it. Drink the":CALL IO.O
  45. 460 A="wrong one and die(continue?)":FG=1:CALL IO.I
  46. 470 IF YE=0 THEN 180
  47. 480 A="Pick which bottle?":CALL IO.I:GOSUB 800
  48. 490 IF V<1 OR V>10 THEN 180
  49. 500 CHOICE%=V:FOR LP=1 TO 3:SOUND 32767,18:A="GLUG ":CR=1:CALL IO.O:NEXT:CALL IO.O
  50. 510 BOTTLE%=INT(RND*10+1):IF BOTTLE%<>CHOICE% THEN 540
  51. 520 A="You drank a poison bottle!":CALL IO.O
  52. 530 A="You lose all your Gold!":CALL IO.O:GG#=0:GOTO 160
  53. 540 A="If youdrank bottle"+STR$(BOTTLE%)+" you would have died!":CALL IO.O
  54. 550 WIN!=INT(ABS(BOTTLE%-CHOICE%)*(RND*5000)):GG#=GG#+WIN!
  55. 560 A="You win"+STR$(WIN!)+" Gold!":CALL IO.O:GOTO 160
  56. 570 A="The Game Master loads a gun with":CALL IO.O
  57. 580 A="one bullet and points it at your":CALL IO.O
  58. 590 A="head. Spin the chamber ten times":CALL IO.O
  59. 600 A="and see if you win(and live)[Y/N]?":FG=1:CALL IO.I
  60. 610 IF YE=0 THEN 180
  61. 620 CHAMBER=INT(RND*6+1)
  62. 630 FOR LP=1 TO 10
  63. 640 IF LP=1 THEN A="-click-":CALL IO.O:GOTO 670
  64. 650 IF INT(RND*6+1)<>CHAMBER THEN A="-click-":CALL IO.O:GOTO 670
  65. 660 A="*BANG*":CALL IO.O:A="You died and lost all your Gold!":GG#=0:GOTO 160
  66. 670 A="continue[y/n]?":FG=1:CALL IO.I:IF YE=0 THEN 180
  67. 680 NEXT:WIN!=INT(RND*5000+5000):A="You survivved and won"+STR$(WIN!)+" Gold!":CALL IO.O
  68. 690 GG#=GG#+WIN!:GOTO 160
  69. 700 FOR UC=1 TO LEN(AL):UC1=ASC(MID$(AL,UC,1)):MID$(AL,UC,1)=CHR$(UC1+32*(UC1>96 AND UC1<123)):NEXT:RETURN
  70. 710 IF LEFT$(AL,1)=" "THEN AL=MID$(AL,2):GOTO 710 ELSE RETURN
  71. 720 CLOSE 1:OPEN "R",1,BD,1:IF LOF(1)=0 THEN CLOSE 1:IN=0:RETURN
  72. 730 CLOSE 1:OPEN "I",1,BD:IN=1:WHILE EOF(1)=0:LINE INPUT#1,A:CALL IO.O:IF TF THEN 750
  73. 740 WEND
  74. 750 CLOSE 1:IN=0:RETURN
  75. 760 WHILE RIGHT$(AI,1)=" ":AI=LEFT$(AI,LEN(AI)-1):WEND:RETURN
  76. 770 TI!=VAL(MID$(TIME$,1,2))*3600+VAL(MID$(TIME$,4,2))*60+VAL(MID$(TIME$,7,2)):RETURN
  77. 780 B5=RIGHT$(DATE$,2)+" "+MID$("JanFebMarAprMayJunJulAugSepOctNovDec",VAL(LEFT$(DATE$,2))*3-2,3)+" "+MID$(DATE$,4,2)+",":LP=VAL(LEFT$(TIME$,2)):T$=MID$(" am pm",(1-(LP>12))*3-2,3):LP=LP+12*(LP>12)-12*(LP=0):T$=" "+B5+STR$(LP)+MID$(TIME$,3,3)+T$
  78. 790 RETURN
  79. 800 IF INSTR(AL,"e")OR INSTR(AL,"d")OR INSTR(AL,"E")OR INSTR(AL,"D")THEN V=0 ELSE IF VAL(LEFT$(AL,5))>32767 THEN V=32767 ELSE V=VAL(LEFT$(AL,5))
  80. 810 RETURN
  81. 820 DATA Ghost,Ghoul,Ghast,Devil,Demon,Satan,Death,2,3,5,7,9,10,10,15,20,50,75,100
  82. 830 END SUB
  83. 840 PRINT "Erro